IF EXISTS(SELECT * FROM sysobjects WHERE name = 'generarCodigoMuestraSondaje' AND type = 'P')
BEGIN
	DROP PROCEDURE generarCodigoMuestraSondaje
END
GO
CREATE PROCEDURE generarCodigoMuestraSondaje
AS
/*********************************************************************
	Resumen: Genera codigo de litologia
	Parametros:
		
**********************************************************************/		

BEGIN
 

			DECLARE @CodigoMuestraSondaje VARCHAR(12)
			DECLARE @nCodigoMuestraSondaje INT
			SELECT @nCodigoMuestraSondaje = CONVERT(INT, ISNULL(substring(MAX(t1.CodigoMuestraSondaje), 2, 7), 0)) + 1 FROM MuestraSondaje t1 
			SET @CodigoMuestraSondaje = RIGHT(ltrim(str(@nCodigoMuestraSondaje + 10000000)), 7)
			
			--PRINT 'codigo ' + @CodigoLitologia
			SELECT 'D' + @CodigoMuestraSondaje AS CodigoMuestraSondaje
 END
 
 
GO
